home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / megadraw.zip / ALPHA.BAS next >
BASIC Source File  |  1989-03-15  |  58KB  |  746 lines
  1.     '
  2.     ' Alpha.bas
  3.     '
  4.     ' Fonts created by Mega-Draw
  5.     ' Program Written for QuickBasic
  6.     '
  7.     ' Copyright 1989 Logika (tm)
  8.     '
  9.  
  10. starter:
  11.     screen 9:clear
  12.     print "This is a demonstration of MegaDraw's capabilities.  What follows is a "
  13.     print "full color EGA font which was entirely drawn in MegaDraw."
  14.     print
  15.     print "You are free to use and modify this program as you like."
  16.     print
  17.     print "Loading fonts..."
  18.     yshape=1 : xshape=0: yshape=50 : xshape=0
  19.     yshape=150 : xshape=0: yshape=200 : xshape=0
  20.     gosub loadshape
  21.     print: print "Press any key to start.":i$=input$(1):cls
  22.     xshape=0:yshape=0:a$="Character set:": gosub shapeanim
  23.     xshape=2:yshape=0:a$="This is a sample line": gosub shapeanim
  24.     xshape=3:yshape=0:a$="abcdefghijklmnopqrstu": gosub shapeanim
  25.     xshape=4:yshape=0:a$="vwxyzABCDEFGHIJKLMNOP": gosub shapeanim
  26.     xshape=5:yshape=0:a$="QRSTUVWXYZ$!%?.,()/\"+chr$(34): gosub shapeanim
  27.     xshape=6:yshape=0:a$=chr$(34)+chr$(24)+chr$(25)+chr$(26)+chr$(27)+"aklmnopqru": gosub shapeanim
  28.     xshape=7:yshape=0:a$="how are You doing?": gosub shapeanim
  29.     xshape=8:yshape=0:a$="1234567890()!#&$%*": gosub shapeanim
  30.     xshape=9:yshape=0:a$="$$!!%?.,21311221:-/"+chr$(34): gosub shapeanim
  31.     xshape=11:yshape=0:a$="Press any key.": gosub shapeanim: I$=INPUT$(1): cls
  32.     xshape=0:yshape=0:a$="M e g a - D r a w !": gosub shapeanim
  33.     xshape=2:yshape=150:a$="Presented by:": gosub shapeanim
  34.     xshape=4:yshape=0:a$="Logika (tm)": gosub shapeanim
  35.     xshape=5:yshape=0:a$="John Buckman": gosub shapeanim
  36.     xshape=6:yshape=0:a$="4 Lexington Avenue": gosub shapeanim
  37.     xshape=7:yshape=0:a$="New York, NY 10010": gosub shapeanim
  38.     xshape=11:yshape=0:a$="Press any key.": gosub shapeanim: I$=INPUT$(1)
  39.     for x=1 to 1000: for xx=1 to 15:palette xx,rnd*60
  40.     if inkey$<>"" then screen 0:print "Goodbye from Logika!":end
  41.     next:next
  42. Loadshape:
  43.         dim Ashape545%(145):for x=0 to 145:read Ashape545%(x):next x
  44.         dim Bshape545%(145):for x=0 to 145:read Bshape545%(x):next x
  45.         dim Cshape545%(145):for x=0 to 145:read Cshape545%(x):next x
  46.         dim Dshape545%(145):for x=0 to 145:read Dshape545%(x):next x
  47.         dim Eshape545%(145):for x=0 to 145:read Eshape545%(x):next x
  48.         dim Fshape545%(145):for x=0 to 145:read Fshape545%(x):next x
  49.         dim Gshape545%(145):for x=0 to 145:read Gshape545%(x):next x
  50.         dim Hshape545%(145):for x=0 to 145:read Hshape545%(x):next x
  51.         dim Ishape545%(145):for x=0 to 145:read Ishape545%(x):next x
  52.         dim Jshape545%(145):for x=0 to 145:read Jshape545%(x):next x
  53.         dim Kshape545%(145):for x=0 to 145:read Kshape545%(x):next x
  54.         dim Lshape545%(145):for x=0 to 145:read Lshape545%(x):next x
  55.     dim Ashape077%(145):for x=0 to 145:read Ashape077%(x):next x
  56.     dim Bshape077%(145):for x=0 to 145:read Bshape077%(x):next x
  57.     dim Cshape077%(145):for x=0 to 145:read Cshape077%(x):next x
  58.     dim Dshape077%(145):for x=0 to 145:read Dshape077%(x):next x
  59.     dim Eshape077%(145):for x=0 to 145:read Eshape077%(x):next x
  60.     dim Fshape077%(145):for x=0 to 145:read Fshape077%(x):next x
  61.     dim Gshape077%(145):for x=0 to 145:read Gshape077%(x):next x
  62.     dim Hshape077%(145):for x=0 to 145:read Hshape077%(x):next x
  63.     dim Ishape077%(145):for x=0 to 145:read Ishape077%(x):next x
  64.     dim Jshape077%(145):for x=0 to 145:read Jshape077%(x):next x
  65.     dim Kshape077%(145):for x=0 to 145:read Kshape077%(x):next x
  66.     dim Lshape077%(145):for x=0 to 145:read Lshape077%(x):next x
  67.     dim Ashape311%(145):for x=0 to 145:read Ashape311%(x):next x
  68.     dim Bshape311%(145):for x=0 to 145:read Bshape311%(x):next x
  69.     dim Cshape311%(145):for x=0 to 145:read Cshape311%(x):next x
  70.     dim Dshape311%(145):for x=0 to 145:read Dshape311%(x):next x
  71.     dim Eshape311%(145):for x=0 to 145:read Eshape311%(x):next x
  72.     dim Fshape311%(145):for x=0 to 145:read Fshape311%(x):next x
  73.     dim Gshape311%(145):for x=0 to 145:read Gshape311%(x):next x
  74.     dim Hshape311%(145):for x=0 to 145:read Hshape311%(x):next x
  75.     dim Ishape311%(145):for x=0 to 145:read Ishape311%(x):next x
  76.     dim Jshape311%(145):for x=0 to 145:read Jshape311%(x):next x
  77.     dim Kshape311%(145):for x=0 to 145:read Kshape311%(x):next x
  78.     dim Lshape311%(145):for x=0 to 145:read Lshape311%(x):next x
  79.     dim Ashape241%(145):for x=0 to 145:read Ashape241%(x):next x
  80.     dim Bshape241%(145):for x=0 to 145:read Bshape241%(x):next x
  81.     dim Cshape241%(145):for x=0 to 145:read Cshape241%(x):next x
  82.     dim Dshape241%(145):for x=0 to 145:read Dshape241%(x):next x
  83.     dim Eshape241%(145):for x=0 to 145:read Eshape241%(x):next x
  84.     dim Fshape241%(145):for x=0 to 145:read Fshape241%(x):next x
  85.     dim Gshape241%(145):for x=0 to 145:read Gshape241%(x):next x
  86.     dim Hshape241%(145):for x=0 to 145:read Hshape241%(x):next x
  87.     dim Ishape241%(145):for x=0 to 145:read Ishape241%(x):next x
  88.     dim Jshape241%(145):for x=0 to 145:read Jshape241%(x):next x
  89.     dim Kshape241%(145):for x=0 to 145:read Kshape241%(x):next x
  90.     dim Lshape241%(145):for x=0 to 145:read Lshape241%(x):next x
  91.     dim Ashape658%(145):for x=0 to 145:read Ashape658%(x):next x
  92.     dim Bshape658%(145):for x=0 to 145:read Bshape658%(x):next x
  93.     dim Cshape658%(145):for x=0 to 145:read Cshape658%(x):next x
  94.     dim Dshape658%(145):for x=0 to 145:read Dshape658%(x):next x
  95.     dim Eshape658%(145):for x=0 to 145:read Eshape658%(x):next x
  96.     dim Fshape658%(145):for x=0 to 145:read Fshape658%(x):next x
  97.     dim Gshape658%(145):for x=0 to 145:read Gshape658%(x):next x
  98.     dim Hshape658%(145):for x=0 to 145:read Hshape658%(x):next x
  99.     dim Ishape658%(145):for x=0 to 145:read Ishape658%(x):next x
  100.     dim Jshape658%(145):for x=0 to 145:read Jshape658%(x):next x
  101.     dim Kshape658%(145):for x=0 to 145:read Kshape658%(x):next x
  102.     dim Lshape658%(145):for x=0 to 145:read Lshape658%(x):next x
  103.     dim Ashape202%(145):for x=0 to 145:read Ashape202%(x):next x
  104.     dim Bshape202%(145):for x=0 to 145:read Bshape202%(x):next x
  105.     dim Cshape202%(145):for x=0 to 145:read Cshape202%(x):next x
  106.     dim Dshape202%(145):for x=0 to 145:read Dshape202%(x):next x
  107.     dim Eshape202%(145):for x=0 to 145:read Eshape202%(x):next x
  108.     dim Fshape202%(145):for x=0 to 145:read Fshape202%(x):next x
  109.     dim Gshape202%(145):for x=0 to 145:read Gshape202%(x):next x
  110.     dim Hshape202%(145):for x=0 to 145:read Hshape202%(x):next x
  111.     dim Ishape202%(145):for x=0 to 145:read Ishape202%(x):next x
  112.     dim Jshape202%(145):for x=0 to 145:read Jshape202%(x):next x
  113.     dim Kshape202%(145):for x=0 to 145:read Kshape202%(x):next x
  114.     dim Lshape202%(145):for x=0 to 145:read Lshape202%(x):next x
  115.     dim Ashape656%(145):for x=0 to 145:read Ashape656%(x):next x
  116.     dim Bshape656%(145):for x=0 to 145:read Bshape656%(x):next x
  117.     dim Cshape656%(145):for x=0 to 145:read Cshape656%(x):next x
  118.     dim Dshape656%(145):for x=0 to 145:read Dshape656%(x):next x
  119.     dim Eshape656%(145):for x=0 to 145:read Eshape656%(x):next x
  120.     dim Fshape656%(145):for x=0 to 145:read Fshape656%(x):next x
  121.     dim Gshape656%(145):for x=0 to 145:read Gshape656%(x):next x
  122.     dim Hshape656%(145):for x=0 to 145:read Hshape656%(x):next x
  123.     dim Ishape656%(145):for x=0 to 145:read Ishape656%(x):next x
  124.     dim Jshape656%(145):for x=0 to 145:read Jshape656%(x):next x
  125.     dim Kshape656%(145):for x=0 to 145:read Kshape656%(x):next x
  126.     dim Lshape656%(145):for x=0 to 145:read Lshape656%(x):next x
  127.         return
  128. shapeanim:
  129.     xshape=xshape*29
  130.     for x=1 to len(a$)
  131.     x$=mid$(a$,x,1)
  132.     if x$=" " then yshape=yshape+30:goto shapeanim2
  133.     if x$="A" then  put (yshape,XShape),Ashape545%,pset:yshape=yshape+30:goto shapeanim2
  134.     if x$="B" then  put (yshape,xshape),Bshape545%,pset:yshape=yshape+30:goto shapeanim2
  135.     if x$="C" then  put (yshape,xshape),Cshape545%,pset:yshape=yshape+30:goto shapeanim2
  136.     if x$="D" then  put (yshape,xshape),Dshape545%,pset:yshape=yshape+30:goto shapeanim2
  137.     if x$="E" then  put (yshape,xshape),Eshape545%,pset:yshape=yshape+30:goto shapeanim2
  138.     if x$="F" then  put (yshape,xshape),Fshape545%,pset:yshape=yshape+30:goto shapeanim2
  139.     if x$="G" then  put (yshape,xshape),Gshape545%,pset:yshape=yshape+30:goto shapeanim2
  140.     if x$="H" then  put (yshape,xshape),Hshape545%,pset:yshape=yshape+30:goto shapeanim2
  141.     if x$="I" then  put (yshape,xshape),Ishape545%,pset:yshape=yshape+30:goto shapeanim2
  142.     if x$="J" then  put (yshape,xshape),Jshape545%,pset:yshape=ysh